(perform-replace): Turn off case-fold-search

if FROM-STRING argument has uppercase in it.

diff --git a/lisp/replace.el b/lisp/replace.el
index 5412b127624b9387790c896151d55c04123382bc..4921fd1fd4faf85243420399c2a153b0f1a83b08 100644 (file)
--- a/lisp/replace.el
+++ b/lisp/replace.el
@@ -703,6 +703,9 @@ which will run faster and probably do exactly what you want."
   (let ((nocasify (not (and case-fold-search case-replace
                            (string-equal from-string
                                          (downcase from-string)))))
+       (case-fold-search (and case-fold-search
+                              (string-equal from-string
+                                            (downcase from-string))))
        (literal (not regexp-flag))
        (search-function (if regexp-flag 're-search-forward 'search-forward))
        (search-string from-string)